gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\manuList.asp
<!-- #include file = "include/sysbase.asp" -->
<!-- #include file = "../include/config.asp" -->
<%
Dim rsObj, rsSuper, strSQL
Dim page, thisUrl, i, bShowAdd, sAddPage
Dim intID, nSuperId, szSuperName, nID, szName
'获取当前分类Id
intID = RealString(Request.QueryString("id"))
If intID = "" Then intID = "0"
'获取当前显示的页码
page = RealString(Request.QueryString("page"))
If (page = "" Or IsEmpty(page)) Then page = 1
thisUrl = "manuList.asp?id=" & intID
Session("adminOldUrl") = thisUrl&"&page = "&page
Set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM ProductType WHERE 1 = 1 AND SuperID = " & intID & " ORDER by id"
'使用LockType和CursorType常量时必须在global.asa中用TypeLib声明ADO
rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly
rsObj.pagesize = conMaxPerPage
'找它的父类，因为删除时需要传值（删除后返回父类）,'返回父类'的链接也需要
strSQL = "SELECT * FROM ProductType WHERE id = " & intID
Set rsSuper = Server.CreateObject("ADODB.RecordSet")
rsSuper.Open strSQL, conn, adOpenKeyset, adLockReadOnly
If Not rsSuper.eof Then
nSuperId = rsSuper("SuperID")
szSuperName = rsSuper("Name")
Else
nSuperId = 0
End If
rsSuper.Close()
%>
<html><head>
<meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<link rel = "stylesheet" href = "include/main.css" type = "text/css">
<SCRIPT language = "JavaScript" src = "Include/common.js"></SCRIPT>
</head>
<body text = "#000000" leftmargin = "0" topmargin = "0" marginwidth = "0" marginheight = "0">
<table align = center width = "80%" border = "1" bordercolordark = "#C6DBE7" bordercolorlight = "#092094" cellpadding = "2" cellspacing = "0" align = "center">
<tr>
<td height = "28" bgcolor = "#4296E7">
<div align = "center"><font color = "#FFFFFF">手机厂商管理</font></div>
</td>
</tr>
</table>
<%
'如果父级ID不是0，即不是顶级类型，则显示修改名称功能
if intID<>"0" then
%>
<table width = "80%" border = "1" bordercolordark = "#C6DBE7" bordercolorlight = "#092094" cellpadding = "2" cellspacing = "0" align = "center">
<tr>
<td width = "7%" nowrap height = "37" valign = "middle"> <a href = manuList.asp?id=<%=nSuperId%>>返回</a></td>
<td width = "93%" height = "37" valign = "middle" align = center>
<form method = "post" name = "sortMod" action = "manuModifySave.asp">厂商列表
<input type = "text" name = "name" value = "<%=szSuperName%>">
<input type = "hidden" name = "id" value = "<%=intID%>">
<input type = "submit" name = "Submit" value = "保存" onClick = "return checkMe(sortMod)">
</form>
</td>
</tr>
</table>
<%
end if
%>
<table width = "80%" border = "1" bordercolordark = "#C6DBE7" bordercolorlight = "#092094" cellpadding = "2" cellspacing = "0" align = "center">
<%
'如果从数据库中检索到数据，则以列表的方式示式
if not (rsObj.eof or err) then
%>
<tr bgcolor = "#5EA5E6">
<td width = "6%" nowrap>
<div align = "center"><font color = "#FFFFFF">编号</font></div></td>
<td nowrap>
<div align = "center"><font color = "#FFFFFF">厂商名称</font></div></td>
<td width = "8%" nowrap>
<div align = "center"><font color = "#FFFFFF">修改</font></div></td>
<td width = "8%" nowrap>
<div align = "center"><font color = "#FFFFFF">删除</font></div></td>
</tr>
<%
rsObj.move (page-1)*conMaxPerPage
i = 1
Do While Not (rsObj.EOF Or Err)
nID = rsObj("id")
nSuperId = rsObj("SuperId")
szName = rsObj("Name")
%>
<tr>
<td width = "6%" nowrap><div align = "center"><%=nID%></div></td>
<td nowrap>
<div align = "center"><a href = manuList.asp?id=<%=nID%>><%=szName%></a></div></td>
<td width = "6%" nowrap>
<div align = "center"><a href = manuList.asp?id=<%=nID%>>修改</a></div></td>
<td width = "6%" nowrap align = center>
<a href = "manuDel.asp?id=<%=nID%>&SuperID=<%=nSuperId%>" onclick = "return confirm('确实要删除吗？');">删除</a></td>
</tr>
<%
i = i + 1
If i > conMaxPerPage Then Exit Do
rsObj.MoveNext()
loop
end if
'是否显示添加按钮
bShowAdd = True
'单击添加按钮后的转向页
sAddPage = "manuAdd.asp"
%>
<tr>
<td bgcolor = "#4296E7" colspan = 4>
<!-- #include file = "include/pageguide.asp"-->
</td>
</tr>
</table>
<%
'手动关闭连接，将连接放入连接池
rsObj.Close()
Set rsObj = Nothing
CloseConn()
%>
</body>
</html>